home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Canadian & World Encyclopedia 1998
/
The Canadian & World Encyclopedia 1998 - Disc 2.iso
/
pc
/
pb
/
profile.dir
/
00965_Script_#issues exitframe script
< prev
next >
Wrap
Text File
|
1997-07-29
|
1KB
|
57 lines
global menu_on, menusub_on, clearmenus,the_rolls,issue_text,dopm,current_pm, prof_rolls,sub_open
on enterframe
puppetsprite 35, false
end
on issrolls a, b, c
if not (the visible of sprite a) then
set the visible of sprite a = TRUE
set the visible of sprite b = FALSE
set the visible of sprite c = FALSE
end if
end
on exitFrame
case true of
(rollover(17)) : issrolls(30,31,32)
(rollover(18)) : issrolls(31,30,32)
(rollover(19)) : issrolls(32,30,31)
end case
if the visible of sprite 37 = false then set sub_open = 0
updatestage
go the frame
end
on xidle
-- put current_pm &"nb" into nb
-- put current_pm & "cw" into cw
-- preLoadMember member nb,member cw
-- if issue_text = TRUE then
-- repeat with x in [38,40,41]
-- if rollover(x) then handcursor
-- repeat while rollover(x)
-- if the mousedown then exit
-- updatestage
-- end repeat
--
-- end repeat
-- end if
repeat with x in [17,18,19]
if rollover(x) then
set the visible of sprite (x + 13) = TRUE
-- handcursor
updatestage
repeat while rollover(x)
if the mousedown then exit
end repeat
set the visible of sprite (x + 13) = FALSE
end if
end repeat
pass
end